Option Explicit
Sub A_Sample043()
    Dim myRng As Range
    Dim myAdr As String
    Dim i     As Long
    Dim j     As Long
    Dim k     As Long
    i = 4				'w}r
    j = 46
    k = (i - 1) \ 26
    Select Case k
        Case 0
        Case Else
            myAdr = myAdr & Chr(64 + k)
    End Select
    myAdr = myAdr & Chr(64 + ((i - 1) Mod 26) + 1)
    myAdr = myAdr & ":"
    k = (j - 1) \ 26
    Select Case k
        Case 0
        Case Else
            myAdr = myAdr & Chr(64 + k)
    End Select
    myAdr = myAdr & Chr(64 + ((j - 1) Mod 26) + 1)
    'ǳƨ즹
    Set myRng = Range(myAdr)		'H}rӫwxsd
    'Set myRng = Columns(myAdr)
    MsgBox myRng.Address
    Set myRng = Nothing		'
End Sub
